home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Software Contest 3 / FM Towns Software Contest 3.iso / gear / for_cd / meeko / at.txt < prev    next >
Text File  |  1994-01-07  |  489b  |  27 lines
  1. 'CLEAR,,1024,2048,1024
  2. RANDOMIZE TIME
  3. R=.75!
  4. A$=GETS$("HP",1)
  5. A=VAL(A$)
  6. L$=GETS$("L",1)
  7. L=VAL(L$)
  8. B$=GETS$("怪物",1)
  9. B=VAL(A$)
  10. CLRF "MES"
  11. IF RND(R)<.3! THEN GOTO *DEFENCE ELSE GOTO *OFFENCE
  12. *DEFENCE
  13. X=INT(RND(R)*20)
  14. MES$="怪獣が あなたに"+STR$(X)+"の 攻撃を与えた!"
  15. PUTS "MES",MES$,0
  16. A=A-X
  17. PUTS "HP",STR$(A),0
  18. PUTS "HP",STR$(A),0
  19. END
  20. *OFFENCE
  21. X=INT(RND(R)*20)*L
  22. MES$="あなたが 怪獣に"+STR$(X)+"の 攻撃を与えた!"
  23. PUTS "MES",MES$,0
  24. B=B-X
  25. PUTS "怪物",STR$(B),0
  26. END
  27.